home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Finnish (N-1.2.2) / Ohjeita / Ohjeita / card_21024.txt < prev    next >
Text File  |  1989-01-30  |  2KB  |  71 lines
  1. -- card: 21024 from stack: in
  2. -- bmap block id: 20408
  3. -- flags: 0000
  4. -- background id: 16045
  5. -- name: 
  6.  
  7.  
  8. -- part 15 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=53 top=74 right=150 bottom=417
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get the clickloc
  23.   put item 1 of it into noteNum
  24.   put 1 + (noteNum - 52) DIV 13 into noteNum
  25.   put "36 38 40 41 43 45 47 48 50 52 53 55 57 59 60 62" && "64 65 67 69 71 72 74 76 77 79 81 83" into keymap
  26.   put word noteNum of keymap into realNote
  27.   play "harpsichord" realnote & "q"
  28.   if notenum < 15 then
  29.     put 220 - ((noteNum-17)*3) -10 into noteLocY
  30.   else
  31.     put 204 - ((noteNum-17)*3) -10 into noteLocY
  32.   end if
  33.   show card button "Note" at 317, noteLocY
  34. end mouseUp
  35.  
  36.  
  37.  
  38.  
  39. -- part 17 (button)
  40. -- low flags: 00
  41. -- high flags: 0000
  42. -- rect: left=300 top=226 right=254 bottom=334
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 12694 / 12694
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Note
  51.  
  52.  
  53. -- part 20 (button)
  54. -- low flags: 00
  55. -- high flags: 8003
  56. -- rect: left=393 top=294 right=316 bottom=476
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Takaisin
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   visual effect checkerboard
  68.   pop card
  69. end mouseUp
  70.  
  71.